home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / NS4NavBar4IB.lha / NS4 Nav Bar 4 IB / Install next >
Encoding:
Text File  |  1998-09-13  |  1.4 KB  |  48 lines
  1. ; A General Installation Script
  2. ; Copyright © 1998 by Ralph Torchia
  3. ; $VER:GenInstallScript v1.0 (09.13.98)
  4.  
  5. (set #PRGVersion "1.0")
  6.  
  7. (welcome
  8.   ("\nWelcome!\n\n")
  9.   ("    This script will copy the new navigation bar\nto the appropriate Ibrowse directory.\n")
  10.   ("    Please follow the intaller's instruction to install\nThe installation WILL make a back-up of the old navigation bar.\n\n")
  11. )
  12.  
  13. (set #homedir "Work:Ibrowse/")
  14.  
  15. (if (= (exists #homedir (noreq)) 0)
  16.   (
  17.     (set #homedir
  18.       (askdir
  19.         (prompt "Where is the IBrowse program located?")
  20.         (help " Please locate the IBrowse directory. (The main program IBrowse is located within it).")
  21.         (default #homedir)
  22.       )
  23.     )
  24.   )
  25. )
  26.  
  27. (set #default-dest (tackon #homedir "images"))
  28. (set #renamefile-old (tackon #homedir "images/def_navigation"))
  29. (set #renamefile-new (tackon #homedir "images/def_navigation_old"))
  30.  
  31. (if (= (exists #renamefile-old (noreq)) 1)
  32.   (
  33.   (rename #renamefile-old #renamefile-new)
  34.   (copyfiles
  35.     (prompt "Copying new navigation bar to %s" #default-dest)
  36.     (help @copyfiles-help)
  37.     (source "images/def_navigation")
  38.     (dest #default-dest)
  39.   )
  40.   )
  41. )
  42.  
  43. (if (not (exists #renamefile-old (noreq)))
  44.   ((abort "You did not locate the IBrowse directory and program correctly!\nPlease try again...\n"))
  45. )
  46.  
  47. (exit "Done installing your new IBrowse Navigation bar.\n\nRemember, this is Emailware!")
  48.